"
I provide 'extensions' method group
"
Class {
	#name : 'ClyExtendedMethodGroupProvider',
	#superclass : 'ClySingleMethodGroupProvider',
	#category : 'Calypso-SystemQueries-Domain',
	#package : 'Calypso-SystemQueries',
	#tag : 'Domain'
}

{ #category : 'building groups' }
ClyExtendedMethodGroupProvider >> createMethodGroupFor: aMethodQuery from: aClassScope [

	| subgroupsQuery |
	subgroupsQuery := ClyExtendingPackagesQuery
		from: aClassScope as: ClyGroupedExtendingPackagesResult new.

	^ClyMethodGroup
		named: 'extensions' priority: 9
		on: aMethodQuery withSubgroupsFrom: subgroupsQuery
]

{ #category : 'building groups' }
ClyExtendedMethodGroupProvider >> createMethodQueryFrom: aClassScope [
	^ClyAllExtensionMethodsQuery from: aClassScope
]
